home *** CD-ROM | disk | FTP | other *** search
Unknown | 1998-04-15 | 3.3 KB |
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence | Program | Detection | Match Type | Support
|
---|
100%
| file
| a /bin/csh -%07%18~L script executable (binary data)
| default (weak)
| |
99%
| file
| data
| default
| |
100%
| TrID
| Linux/UNIX shell script
| default
| |
100%
| gt2
| Shell Skript: '/bin/csh -%07%18~L'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 21 2f 62 69 6e 2f 63 | 73 68 20 2d 07 18 7e 4c |#!/bin/c|sh -..~L|
|00000010| 00 00 00 00 20 30 29 20 | 74 68 65 6e 6c 6f 74 20 |.... 0) |thenlot |
|00000020| 6f 75 74 70 75 74 20 6f | 6e 20 52 47 49 50 20 28 |output o|n RGIP (|
|00000030| 55 6e 69 70 6c 65 78 29 | 20 66 6f 72 6d 61 74 2e |Uniplex)| format.|
|00000040| 0a 0a 73 65 74 20 69 6e | 70 75 74 5f 66 69 6c 65 |..set in|put_file|
|00000050| 73 20 3d 20 28 29 20 20 | 20 20 23 20 74 68 65 20 |s = () | # the |
|00000060| 70 6c 6f 74 20 69 6e 70 | 75 74 20 63 6f 6d 6d 61 |plot inp|ut comma|
|00000070| 6e 64 20 66 69 6c 65 73 | 0a 73 65 74 20 6c 70 72 |nd files|.set lpr|
|00000080| 5f 6f 70 74 73 20 3d 20 | 28 29 09 20 20 20 20 23 |_opts = |(). #|
|00000090| 20 6f 70 74 69 6f 6e 73 | 20 74 6f 20 6c 70 72 0a | options| to lpr.|
|000000a0| 73 65 74 20 66 6f 6e 74 | 73 69 7a 65 20 3d 20 28 |set font|size = (|
|000000b0| 29 0a 0a 23 20 46 69 6c | 65 20 66 6f 72 20 70 6c |)..# Fil|e for pl|
|000000c0| 6f 74 20 63 6f 6d 6d 61 | 6e 64 73 2c 20 61 6e 64 |ot comma|nds, and|
|000000d0| 20 66 6f 72 20 70 6c 6f | 74 20 6f 75 74 70 75 74 | for plo|t output|
|000000e0| 0a 73 65 74 20 54 4d 50 | 3d 2f 74 6d 70 2f 70 6c |.set TMP|=/tmp/pl|
|000000f0| 6f 74 24 24 0a 73 65 74 | 20 6f 75 74 66 69 6c 65 |ot$$.set| outfile|
|00000100| 3d 22 7c 6d 61 69 6c 20 | 24 55 53 45 52 22 09 23 |="|mail |$USER".#|
|00000110| 6d 61 69 6c 20 75 73 65 | 72 20 69 66 20 6e 6f 20 |mail use|r if no |
|00000120| 6f 75 74 70 75 74 66 69 | 6c 65 0a 73 65 74 20 6f |outputfi|le.set o|
|00000130| 75 74 3d 30 0a 73 65 74 | 20 77 69 6e 64 6f 77 73 |ut=0.set| windows|
|00000140| 20 3d 20 28 29 09 23 77 | 69 6e 64 6f 77 73 20 6e | = ().#w|indows n|
|00000150| 72 20 69 20 78 2d 64 69 | 72 20 61 6e 64 20 79 2d |r i x-di|r and y-|
|00000160| 64 69 72 0a 6f 6e 69 6e | 74 72 20 63 6c 65 61 6e |dir.onin|tr clean|
|00000170| 75 70 0a 0a 23 20 64 65 | 66 61 75 6c 74 20 69 73 |up..# de|fault is|
|00000180| 20 49 6d 61 67 65 6e 20 | 6d 6f 64 65 20 66 6f 72 | Imagen |mode for|
|00000190| 20 49 6d 61 67 65 6e 20 | 70 72 69 6e 74 65 72 3b | Imagen |printer;|
|000001a0| 20 73 65 65 20 2d 70 20 | 6f 70 74 69 6f 6e 0a 73 | see -p |option.s|
|000001b0| 65 74 20 73 65 74 74 65 | 72 6d 3d 22 73 65 74 20 |et sette|rm="set |
|000001c0| 74 65 72 6d 69 6e 61 6c | 20 69 6d 61 67 65 6e 22 |terminal| imagen"|
|000001d0| 0a 0a 73 65 74 20 75 73 | 61 67 65 3d 22 75 73 61 |..set us|age="usa|
|000001e0| 67 65 3a 20 72 67 69 70 | 67 6e 75 20 5b 2d 66 20 |ge: rgip|gnu [-f |
|000001f0| 66 6f 6e 74 73 69 7a 65 | 5d 20 5b 2d 77 20 5b 77 |fontsize|] [-w [w|
|00000200| 69 6e 78 2c 77 69 6e 79 | 5d 5d 20 5b 2d 74 20 74 |inx,winy|]] [-t t|
|00000210| 69 74 6c 65 5d 20 5b 2d | 6f 20 6f 75 74 70 75 74 |itle] [-|o output|
|00000220| 66 69 6c 65 5d 20 5b 2d | 70 20 27 70 6c 6f 74 20 |file] [-|p 'plot |
|00000230| 63 6f 6d 6d 61 6e 64 27 | 5d 20 5b 70 6c 6f 74 2d |command'|] [plot-|
|00000240| 66 69 6c 65 73 2e 2e 2e | 2e 5d 22 0a 0a 23 20 4c |files...|.]"..# L|
|00000250| 6f 6f 70 20 74 68 72 6f | 75 67 68 20 74 68 65 20 |oop thro|ugh the |
|00000260| 63 6f 6d 6d 61 6e 64 2d | 6c 69 6e 65 20 61 72 67 |command-|line arg|
|00000270| 75 6d 65 6e 74 73 2e 0a | 0a 0a 74 6f 70 3a 0a 09 |uments..|..top:..|
|00000280| 69 66 20 28 24 23 61 72 | 67 76 20 3e 20 30 29 20 |if ($#ar|gv > 0) |
|00000290| 74 68 65 6e 0a 0a 09 09 | 73 77 69 74 63 68 20 28 |then....|switch (|
|000002a0| 22 24 61 72 67 76 5b 31 | 5d 22 29 0a 0a 09 09 63 |"$argv[1|]")....c|
|000002b0| 61 73 65 20 2d 20 20 20 | 3a 09 23 20 70 72 69 6e |ase - |:.# prin|
|000002c0| 74 20 74 6f 20 73 74 64 | 6f 75 74 20 0a 09 09 09 |t to std|out ....|
|000002d0| 73 65 74 20 6f 75 74 66 | 69 6c 65 3d 22 22 0a 09 |set outf|ile=""..|
|000002e0| 09 09 73 65 74 20 6f 75 | 74 3d 31 0a 09 09 09 73 |..set ou|t=1....s|
|000002f0| 68 69 66 74 20 61 72 67 | 76 0a 09 09 09 67 6f 74 |hift arg|v....got|
|00000300| 6f 20 74 6f 70 0a 0a 09 | 09 63 61 73 65 20 2d 66 |o top...|.case -f|
|00000310| 3f 2a 3a 09 09 23 20 53 | 70 65 63 69 66 79 20 66 |?*:..# S|pecify f|
|00000320| 6f 6e 74 20 73 69 7a 65 | 0a 09 09 09 73 65 74 20 |ont size|....set |
|00000330| 66 6f 6e 74 73 69 7a 65 | 20 3d 20 60 65 63 68 6f |fontsize| = `echo|
|00000340| 20 24 61 72 67 76 5b 31 | 5d 20 7c 20 73 65 64 20 | $argv[1|] | sed |
|00000350| 27 73 2f 5e 2d 66 2f 2f | 27 60 29 0a 09 09 09 73 |'s/^-f//|'`)....s|
|00000360| 68 69 66 74 20 61 72 67 | 76 0a 09 09 09 67 6f 74 |hift arg|v....got|
|00000370| 6f 20 74 6f 70 0a 0a 09 | 09 63 61 73 65 20 2d 66 |o top...|.case -f|
|00000380| 3a 09 23 20 53 70 65 63 | 69 66 79 20 66 6f 6e 74 |:.# Spec|ify font|
|00000390| 20 73 69 7a 65 0a 09 09 | 09 73 68 69 66 74 20 61 | size...|.shift a|
|000003a0| 72 67 76 0a 09 09 09 69 | 66 20 28 24 23 61 72 67 |rgv....i|f ($#arg|
|000003b0| 76 20 3e 20 30 29 20 74 | 68 65 6e 0a 09 09 09 09 |v > 0) t|hen.....|
|000003c0| 73 65 74 20 66 6f 6e 74 | 73 69 7a 65 20 3d 20 24 |set font|size = $|
|000003d0| 61 72 67 76 5b 31 5d 0a | 09 09 09 09 73 68 69 66 |argv[1].|....shif|
|000003e0| 74 20 61 72 67 76 0a 09 | 09 09 65 6c 73 65 0a 09 |t argv..|..else..|
|000003f0| 09 09 09 65 63 68 6f 20 | 22 55 73 61 67 65 3a 20 |...echo |"Usage: |
|00000400| 2d 66 20 66 6f 6e 74 73 | 69 7a 65 20 28 31 2d 38 |-f fonts|ize (1-8|
|00000410| 29 22 0a 09 09 09 09 65 | 63 68 6f 20 22 54 79 70 |)".....e|cho "Typ|
|00000420| 65 20 20 20 20 72 67 69 | 70 67 6e 75 20 2d 68 65 |e rgi|pgnu -he|
|00000430| 6c 70 20 20 20 20 66 6f | 72 20 68 65 6c 70 2e 22 |lp fo|r help."|
|00000440| 0a 09 09 09 09 65 78 69 | 74 20 28 31 29 0a 09 09 |.....exi|t (1)...|
|00000450| 09 65 6e 64 69 66 0a 09 | 09 09 67 6f 74 6f 20 74 |.endif..|..goto t|
|00000460| 6f 70 0a 0a 09 09 63 61 | 73 65 20 2d 6f 3f 2a 3a |op....ca|se -o?*:|
|00000470| 09 23 20 53 70 65 63 69 | 66 79 20 6f 75 74 70 75 |.# Speci|fy outpu|
|00000480| 74 2d 66 69 6c 65 20 6f | 66 20 70 6c 6f 74 0a 09 |t-file o|f plot..|
|00000490| 09 09 73 65 74 20 6f 75 | 74 66 69 6c 65 20 3d 20 |..set ou|tfile = |
|000004a0| 60 65 63 68 6f 20 24 61 | 72 67 76 5b 31 5d 20 7c |`echo $a|rgv[1] ||
|000004b0| 20 73 65 64 20 27 73 2f | 5e 2d 6f 2f 2f 27 60 0a | sed 's/|^-o//'`.|
|000004c0| 09 09 09 73 65 74 20 6f | 75 74 3d 31 0a 09 09 09 |...set o|ut=1....|
|000004d0| 73 68 69 66 74 20 61 72 | 67 76 0a 09 09 09 67 6f |shift ar|gv....go|
|000004e0| 74 6f 20 74 6f 70 0a 0a | 09 09 63 61 73 65 20 2d |to top..|..case -|
|000004f0| 6f 3a 09 23 20 53 70 65 | 63 69 66 79 20 74 69 74 |o:.# Spe|cify tit|
|00000500| 6c 65 20 6f 66 20 70 6c | 6f 74 0a 09 09 09 73 68 |le of pl|ot....sh|
|00000510| 69 66 74 20 61 72 67 76 | 0a 09 09 09 69 66 20 28 |ift argv|....if (|
|00000520| 24 23 61 72 67 76 20 3e | 20 30 29 20 74 68 65 6e |$#argv >| 0) then|
|00000530| 0a 09 09 09 20 09 73 65 | 74 20 6f 75 74 66 69 6c |.... .se|t outfil|
|00000540| 65 20 3d 20 24 61 72 67 | 76 5b 31 5d 0a 09 09 09 |e = $arg|v[1]....|
|00000550| 09 73 65 74 20 6f 75 74 | 3d 31 0a 09 09 09 09 73 |.set out|=1.....s|
|00000560| 68 69 66 74 20 61 72 67 | 76 0a 09 09 09 65 6c 73 |hift arg|v....els|
|00000570| 65 0a 09 09 09 09 65 63 | 68 6f 20 22 55 73 61 67 |e.....ec|ho "Usag|
|00000580| 65 3a 20 2d 6f 20 6f 75 | 74 70 75 74 66 69 6c 65 |e: -o ou|tputfile|
|00000590| 22 0a 09 09 09 09 65 63 | 68 6f 20 22 49 6e 63 6c |".....ec|ho "Incl|
|000005a0| 75 64 65 20 61 20 27 58 | 27 20 69 6e 20 66 69 6c |ude a 'X|' in fil|
|000005b0| 65 6e 61 6d 65 20 69 66 | 20 6d 75 6c 74 69 70 6c |ename if| multipl|
|000005c0| 65 20 70 6c 6f 74 73 22 | 0a 09 09 09 09 65 63 68 |e plots"|.....ech|
|000005d0| 6f 20 22 54 79 70 65 20 | 20 20 20 6c 61 73 65 72 |o "Type | laser|
|000005e0| 67 6e 75 20 2d 68 65 6c | 70 20 20 20 20 66 6f 72 |gnu -hel|p for|
|000005f0| 20 68 65 6c 70 2e 22 0a | 09 09 09 09 65 78 69 74 | help.".|....exit|
|00000600| 20 28 31 29 0a 09 09 09 | 65 6e 64 69 66 0a 09 09 | (1)....|endif...|
|00000610| 09 67 6f 74 6f 20 74 6f | 70 0a 0a 09 09 63 61 73 |.goto to|p....cas|
|00000620| 65 20 2d 74 3f 2a 3a 09 | 23 20 53 70 65 63 69 66 |e -t?*:.|# Specif|
|00000630| 79 20 74 69 74 6c 65 20 | 6f 66 20 70 6c 6f 74 0a |y title |of plot.|
|00000640| 09 09 09 65 63 68 6f 20 | 73 65 74 20 74 69 74 6c |...echo |set titl|
|00000650| 65 20 5c 22 22 60 65 63 | 68 6f 20 24 61 72 67 76 |e \""`ec|ho $argv|
|00000660| 5b 31 5d 20 7c 20 73 65 | 64 20 27 73 2f 5e 2d 74 |[1] | se|d 's/^-t|
|00000670| 2f 2f 27 60 22 5c 22 20 | 3e 3e 20 24 54 4d 50 0a |//'`"\" |>> $TMP.|
|00000680| 09 09 09 73 68 69 66 74 | 20 61 72 67 76 0a 09 09 |...shift| argv...|
|00000690| 09 67 6f 74 6f 20 74 6f | 70 0a 0a 09 09 63 61 73 |.goto to|p....cas|
|000006a0| 65 20 2d 74 3a 09 23 20 | 53 70 65 63 69 66 79 20 |e -t:.# |Specify |
|000006b0| 74 69 74 6c 65 20 6f 66 | 20 70 6c 6f 74 0a 09 09 |title of| plot...|
|000006c0| 09 73 68 69 66 74 20 61 | 72 67 76 0a 09 09 09 69 |.shift a|rgv....i|
|000006d0| 66 20 28 24 23 61 72 67 | 76 20 3e 20 30 29 20 74 |f ($#arg|v > 0) t|
|000006e0| 68 65 6e 0a 09 09 09 09 | 65 63 68 6f 20 73 65 74 |hen.....|echo set|
|000006f0| 20 74 69 74 6c 65 20 5c | 22 22 24 31 22 5c 22 20 | title \|""$1"\" |
|00000700| 3e 3e 20 24 54 4d 50 0a | 09 09 09 09 73 68 69 66 |>> $TMP.|....shif|
|00000710| 74 20 61 72 67 76 0a 09 | 09 09 65 6c 73 65 0a 09 |t argv..|..else..|
|00000720| 09 09 09 65 63 68 6f 20 | 22 55 73 61 67 65 3a 20 |...echo |"Usage: |
|00000730| 2d 74 20 74 69 74 6c 65 | 20 2e 2e 2e 22 0a 09 09 |-t title| ..."...|
|00000740| 09 09 65 63 68 6f 20 22 | 54 79 70 65 20 20 20 20 |..echo "|Type |
|00000750| 6c 61 73 65 72 67 6e 75 | 20 2d 68 65 6c 70 20 20 |lasergnu| -help |
|00000760| 20 20 66 6f 72 20 68 65 | 6c 70 2e 22 0a 09 09 09 | for he|lp."....|
|00000770| 09 65 78 69 74 20 28 31 | 29 0a 09 09 09 65 6e 64 |.exit (1|)....end|
|00000780| 69 66 0a 09 09 09 67 6f | 74 6f 20 74 6f 70 0a 20 |if....go|to top. |
|00000790| 20 20 20 20 20 20 20 20 | 20 63 61 73 65 20 2d 68 | | case -h|
|000007a0| 65 6c 70 3a 0a 09 09 09 | 65 63 68 6f 20 22 24 75 |elp:....|echo "$u|
|000007b0| 73 61 67 65 22 0a 09 09 | 09 65 78 69 74 28 31 29 |sage"...|.exit(1)|
|000007c0| 0a 0a 09 09 63 61 73 65 | 20 2d 70 3f 2a 3a 09 23 |....case| -p?*:.#|
|000007d0| 20 70 6c 6f 74 2d 63 6f | 6d 6d 64 73 20 0a 09 20 | plot-co|mmds .. |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 65 | | e|
|000007f0| 63 68 6f 20 22 24 61 72 | 67 76 5b 31 5d 22 20 7c |cho "$ar|gv[1]" ||
|00000800| 20 73 65 64 20 22 73 2f | 5e 2d 70 2f 2f 22 09 3e | sed "s/|^-p//".>|
|00000810| 3e 20 24 54 4d 50 0a 09 | 09 09 73 68 69 66 74 20 |> $TMP..|..shift |
|00000820| 61 72 67 76 0a 09 09 09 | 67 6f 74 6f 20 74 6f 70 |argv....|goto top|
|00000830| 0a 0a 09 09 63 61 73 65 | 20 2d 70 3a 09 23 20 53 |....case| -p:.# S|
|00000840| 65 74 20 74 68 65 20 70 | 72 69 6e 74 65 72 2c 20 |et the p|rinter, |
|00000850| 65 78 61 63 74 6c 79 20 | 61 73 20 62 79 20 69 74 |exactly |as by it|
|00000860| 72 6f 66 66 2e 0a 09 09 | 09 73 68 69 66 74 20 61 |roff....|.shift a|
|00000870| 72 67 76 0a 09 09 09 69 | 66 20 28 24 23 61 72 67 |rgv....i|f ($#arg|
|00000880| 76 20 3e 20 30 29 20 74 | 68 65 6e 0a 09 20 20 20 |v > 0) t|hen.. |
|00000890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 09 65 63 | | .ec|
|000008a0| 68 6f 20 22 24 61 72 67 | 76 5b 31 5d 22 09 3e 3e |ho "$arg|v[1]".>>|
|000008b0| 20 24 54 4d 50 0a 09 09 | 09 09 73 68 69 66 74 20 | $TMP...|..shift |
|000008c0| 61 72 67 76 0a 09 09 09 | 65 6c 73 65 0a 09 09 09 |argv....|else....|
|000008d0| 09 65 63 68 6f 20 22 55 | 73 61 67 65 3a 20 2d 50 |.echo "U|sage: -P|
|000008e0| 20 27 70 6c 6f 74 2d 63 | 6f 6d 6d 61 6e 64 73 20 | 'plot-c|ommands |
|000008f0| 2e 2e 2e 27 22 0a 09 09 | 09 09 65 63 68 6f 20 22 |...'"...|..echo "|
|00000900| 54 79 70 65 20 20 20 20 | 72 67 69 70 67 6e 75 20 |Type |rgipgnu |
|00000910| 2d 68 65 6c 70 20 20 20 | 20 66 6f 72 20 68 65 6c |-help | for hel|
|00000920| 70 2e 22 0a 09 09 09 09 | 65 78 69 74 20 28 31 29 |p.".....|exit (1)|
|00000930| 0a 09 09 09 65 6e 64 69 | 66 0a 09 09 09 67 6f 74 |....endi|f....got|
|00000940| 6f 20 74 6f 70 0a 0a 09 | 09 63 61 73 65 20 2d 77 |o top...|.case -w|
|00000950| 3a 09 23 20 53 70 65 63 | 69 66 79 20 73 70 6c 69 |:.# Spec|ify spli|
|00000960| 74 20 70 61 67 65 0a 09 | 09 09 73 68 69 66 74 20 |t page..|..shift |
|00000970| 61 72 67 76 0a 09 09 09 | 69 66 20 28 24 23 61 72 |argv....|if ($#ar|
|00000980| 67 76 20 3e 20 30 29 20 | 74 68 65 6e 0a 09 09 09 |gv > 0) |then....|
|00000990| 09 73 65 74 20 77 69 6e | 64 6f 77 73 3d 22 5b 24 |.set win|dows="[$|
|000009a0| 61 72 67 76 5b 31 5d 5d | 22 0a 09 09 09 09 73 68 |argv[1]]|".....sh|
|000009b0| 69 66 74 20 61 72 67 76 | 0a 09 09 09 65 6c 73 65 |ift argv|....else|
|000009c0| 0a 09 09 09 09 65 63 68 | 6f 20 22 55 73 61 67 65 |.....ech|o "Usage|
|000009d0| 3a 20 2d 77 20 6e 6f 5f | 68 6f 72 69 7a 2c 6e 6f |: -w no_|horiz,no|
|000009e0| 5f 76 65 72 74 69 63 61 | 6c 22 0a 09 09 09 09 65 |_vertica|l".....e|
|000009f0| 63 68 6f 20 22 54 79 70 | 65 20 20 20 20 6c 61 73 |cho "Typ|e las|
|00000a00| 65 72 67 6e 75 20 2d 68 | 65 6c 70 20 20 20 20 66 |ergnu -h|elp f|
|00000a10| 6f 72 20 68 65 6c 70 2e | 22 0a 09 09 09 09 65 78 |or help.|".....ex|
|00000a20| 69 74 20 28 31 29 0a 09 | 09 09 65 6e 64 69 66 0a |it (1)..|..endif.|
|00000a30| 09 09 09 67 6f 74 6f 20 | 74 6f 70 0a 0a 09 09 63 |...goto |top....c|
|00000a40| 61 73 65 20 2d 3f 2a 3a | 0a 09 09 09 65 63 68 6f |ase -?*:|....echo|
|00000a50| 20 22 49 20 64 6f 20 6e | 6f 74 20 72 65 63 6f 67 | "I do n|ot recog|
|00000a60| 6e 69 7a 65 20 6f 70 74 | 69 6f 6e 20 24 61 72 67 |nize opt|ion $arg|
|00000a70| 76 5b 31 5d 2e 22 0a 09 | 09 09 65 63 68 6f 20 22 |v[1]."..|..echo "|
|00000a80| 24 75 73 61 67 65 22 0a | 09 09 09 65 78 69 74 20 |$usage".|...exit |
|00000a90| 28 31 29 0a 0a 09 09 64 | 65 66 61 75 6c 74 3a 0a |(1)....d|efault:.|
|00000aa0| 09 20 20 20 20 20 20 20 | 20 20 20 09 73 65 74 20 |. | .set |
|00000ab0| 69 6e 70 75 74 5f 66 69 | 6c 65 73 20 3d 20 28 24 |input_fi|les = ($|
|00000ac0| 69 6e 70 75 74 5f 66 69 | 6c 65 73 20 24 61 72 67 |input_fi|les $arg|
|00000ad0| 76 5b 31 5d 29 0a 09 09 | 09 73 68 69 66 74 20 61 |v[1])...|.shift a|
|00000ae0| 72 67 76 0a 09 09 09 67 | 6f 74 6f 20 74 6f 70 0a |rgv....g|oto top.|
|00000af0| 0a 09 09 65 6e 64 73 77 | 0a 09 65 6e 64 69 66 0a |...endsw|..endif.|
|00000b00| 0a 73 65 74 20 73 65 74 | 74 65 72 6d 3d 22 73 65 |.set set|term="se|
|00000b10| 74 20 74 65 72 6d 20 72 | 67 69 70 20 24 66 6f 6e |t term r|gip $fon|
|00000b20| 74 73 69 7a 65 20 24 77 | 69 6e 64 6f 77 73 22 0a |tsize $w|indows".|
|00000b30| 0a 23 20 53 65 74 20 75 | 70 20 69 6e 70 75 74 20 |.# Set u|p input |
|00000b40| 66 69 6c 65 0a 65 63 68 | 6f 20 22 24 73 65 74 74 |file.ech|o "$sett|
|00000b50| 65 72 6d 22 20 3e 20 24 | 54 4d 50 2e 70 6c 74 0a |erm" > $|TMP.plt.|
|00000b60| 65 63 68 6f 20 73 65 74 | 20 6f 75 74 70 75 74 20 |echo set| output |
|00000b70| 5c 22 24 6f 75 74 66 69 | 6c 65 5c 22 20 3e 3e 20 |\"$outfi|le\" >> |
|00000b80| 24 54 4d 50 2e 70 6c 74 | 0a 69 66 20 28 2d 65 20 |$TMP.plt|.if (-e |
|00000b90| 24 54 4d 50 29 20 63 61 | 74 20 24 54 4d 50 20 3e |$TMP) ca|t $TMP >|
|00000ba0| 3e 20 24 54 4d 50 2e 70 | 6c 74 0a 0a 23 20 49 66 |> $TMP.p|lt..# If|
|00000bb0| 20 69 6e 70 75 74 20 66 | 69 6c 65 20 69 73 20 73 | input f|ile is s|
|00000bc0| 70 65 63 69 66 69 65 64 | 20 41 4e 44 20 63 6f 6d |pecified| AND com|
|00000bd0| 6d 61 6e 64 20 6c 69 6e | 65 20 63 6f 6e 74 61 69 |mand lin|e contai|
|00000be0| 6e 73 20 70 6c 6f 74 20 | 63 6f 6d 6d 61 6e 64 73 |ns plot |commands|
|00000bf0| 2c 20 74 68 65 6e 0a 23 | 09 64 6f 20 63 6f 6d 6d |, then.#|.do comm|
|00000c00| 61 6e 64 20 6c 69 6e 65 | 20 61 72 67 73 20 66 69 |and line| args fi|
|00000c10| 72 73 74 2c 20 74 68 65 | 6e 20 70 6c 6f 74 20 63 |rst, the|n plot c|
|00000c20| 6f 6d 6d 61 6e 64 73 20 | 69 6e 20 69 6e 70 75 74 |ommands |in input|
|00000c30| 20 66 69 6c 65 2e 0a 23 | 69 66 20 28 20 22 24 69 | file..#|if ( "$i|
|00000c40| 6e 70 75 74 5f 66 69 6c | 65 73 22 20 21 3d 20 22 |nput_fil|es" != "|
|00000c50| 22 20 29 20 74 68 65 6e | 0a 69 66 20 28 20 22 24 |" ) then|.if ( "$|
|00000c60| 6f 75 74 22 20 29 20 74 | 68 65 6e 0a 67 72 65 70 |out" ) t|hen.grep|
|00000c70| 20 2d 76 20 22 73 65 74 | 20 74 65 22 20 24 69 6e | -v "set| te" $in|
|00000c80| 70 75 74 5f 66 69 6c 65 | 73 20 7c 20 67 72 65 70 |put_file|s | grep|
|00000c90| 20 2d 76 20 22 73 65 74 | 20 6f 75 74 22 20 3e 3e | -v "set| out" >>|
|00000ca0| 20 24 54 4d 50 2e 70 6c | 74 0a 65 6c 73 65 0a 67 | $TMP.pl|t.else.g|
|00000cb0| 72 65 70 20 2d 76 20 22 | 73 65 74 20 74 65 22 20 |rep -v "|set te" |
|00000cc0| 24 69 6e 70 75 74 5f 66 | 69 6c 65 73 20 3e 3e 20 |$input_f|iles >> |
|00000cd0| 24 54 4d 50 2e 70 6c 74 | 0a 65 6e 64 69 66 0a 65 |$TMP.plt|.endif.e|
|00000ce0| 63 68 6f 20 22 71 75 69 | 74 22 20 3e 3e 20 24 54 |cho "qui|t" >> $T|
|00000cf0| 4d 50 2e 70 6c 74 0a 67 | 6e 75 70 6c 6f 74 20 24 |MP.plt.g|nuplot $|
|00000d00| 54 4d 50 2e 70 6c 74 20 | 3c 20 2f 64 65 76 2f 6e |TMP.plt |< /dev/n|
|00000d10| 75 6c 6c 0a 0a 63 6c 65 | 61 6e 75 70 3a 0a 72 6d |ull..cle|anup:.rm|
|00000d20| 20 2d 66 20 24 54 4d 50 | 2a 20 0a | -f $TMP|* . |
+--------+-------------------------+-------------------------+--------+--------+